home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / h / highspeedpascalv2.0b.dms / highspeedpascalv2.0b.adf / Interface / Gameport.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  538b  |  37 lines
  1. Unit Gameport;
  2.  
  3. Interface
  4. Uses Exec;
  5.  
  6. Type
  7.   tGamePortTrigger = Record
  8.           gpt_Keys: Integer;
  9.           gpt_Timeout: Integer;
  10.           gpt_XDelta: Integer;
  11.           gpt_YDelta: Integer;
  12.         End;
  13.  
  14.  
  15.  
  16. Const
  17.   GPCT_NOCONTROLLER = $0;
  18.   GPTB_DOWNKEYS = $0;
  19.   GPD_ASKCTYPE = $A;
  20.   GPTF_DOWNKEYS = $1;
  21.   GPCT_ABSJOYSTICK = $3;
  22.   GPD_SETCTYPE = $B;
  23.   GPCT_ALLOCATED = $FFFFFFFF;
  24.   GPCT_RELJOYSTICK = $2;
  25.   GPD_ASKTRIGGER = $C;
  26.   GPDERR_SETCTYPE = $1;
  27.   GPTB_UPKEYS = $1;
  28.   GPD_SETTRIGGER = $D;
  29.   GPTF_UPKEYS = $2;
  30.   GPD_READEVENT = $9;
  31.   GPCT_MOUSE = $1;
  32.  
  33.  
  34.  
  35.  
  36. End.
  37.